home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_151_Display Image from List Definition.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  1.2 KB  |  32 lines
  1. global gNoteData, gImageDescription, glSelectedLabels, glSelectedLines, gPointerLoc, glCurrentListData, gListObject
  2.  
  3. on LoadImageDefinition
  4.   imageName = getPropAt(value(gListObject).plImageData, 1)
  5.   value(gListObject).pCurrentImage = imageName.char[6..imageName.char.count]
  6.   DefinitionData = getAt(value(gListObject).plImageData, 1)
  7.   value(gListObject).pCurrentImageTitle = getAt(DefinitionData, 2)
  8.   gImageDescription = getAt(DefinitionData, 3)
  9.   gNoteData = getAt(DefinitionData, 4)
  10.   glSelectedLabels = value(getAt(DefinitionData, 5))
  11.   glSelectedLines = value(getAt(DefinitionData, 6))
  12.   gPointerLoc = value(getAt(DefinitionData, 7))
  13. end
  14.  
  15. on LoadMouseOverImageDefinition ListPosition
  16.   imageNum = getAt(getAt(getAt(glCurrentListData, ListPosition), 1), 1)
  17.   ImageTitle = getAt(getAt(getAt(glCurrentListData, ListPosition), 1), 2)
  18.   ImageDescription = getAt(getAt(getAt(glCurrentListData, ListPosition), 1), 3)
  19.   return imageNum & TAB & ImageTitle & TAB & ImageDescription
  20. end
  21.  
  22. on ClearImageDefinition
  23.   value(gListObject).plImageData = [:]
  24.   value(gListObject).pCurrentImage = EMPTY
  25.   value(gListObject).pCurrentImageTitle = EMPTY
  26.   gImageDescription = EMPTY
  27.   gNoteData = EMPTY
  28.   glSelectedLabels = []
  29.   glSelectedLines = []
  30.   gPointerLoc = point(155, 463)
  31. end
  32.